Ultra Gameplayers 101/Ultra Game Players Magazine, No. 101 - September 1997 (Imagine Publishing, Inc.)(1997).iso/pc/new_ugp.dxr/00273_Sound FX Class.ls

Text File | 1997-07-10 | 836 b | 33 lines

property audioMember, audioChannel, audioController, audioPlaying

on new me, parameterList
  set audioMember to getaProp(parameterList, #audioMember)
  set audioChannel to 2
  set audioController to the audioController of GetGlobal(#gTitleObject)
  if stringp(audioMember) then
    set audioMember to the number of member audioMember
  end if
  if audioMember > 0 then
    preloadMember(member audioMember)
  end if
  set audioPlaying to 0
  return me
end

on TurnOn me
  if (audioMember <= 0) or (audioChannel <= 0) then
    StopAudio(audioController, audioChannel, audioMember)
  else
    PlayAudio(audioController, audioChannel, audioMember)
  end if
end

on TurnOff me
  StopAudio(audioController, audioChannel, audioMember)
end

on dispose me
  StopAudio(audioController, audioChannel, audioMember)
  set audioController to 0
end